﻿Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Ipc



Module PassFiltConsole

    Sub Main()
        'IpcChannel channel = new IpcChannel(properties, null, null);
        'Dim ipcCh As New IpcChannel

        'Dim IPCProps As New Hashtable
        'IPCProps("portname") = "PassFiltService"
        'IPCProps("exclusiveAddressUse") = False
        'IPCProps("authorizedGroup") = "Everyone"
        'ipcCh = IpcChannel("PassFiltService", False)
        Dim ipcCh As IpcChannel
        ipcCh = New IpcChannel("PassFiltService")
        ChannelServices.RegisterChannel(ipcCh, False)
        RemotingConfiguration.RegisterWellKnownServiceType(GetType(CommunicationService), "Remote", WellKnownObjectMode.Singleton)

        Console.WriteLine("Press ENTER to quit")
        Console.ReadLine()
    End Sub

End Module
